#!/usr/bin/perl
use strict;

open(ANTI,"<Anti-S.TXT");
open(SEN,"<Sense-A.TXT");
open(OUT,">stack3result.txt");

my $antiLine;
my $senLine;

while($antiLine=<ANTI>){
       while(not (($antiLine=~/^Dimer.*/) or (eof(ANTI)))){$antiLine=<ANTI>;}
       chomp($antiLine);
       print OUT $antiLine," ";

       my $flag=1;
       my $value=0;
       $antiLine=<ANTI>;$antiLine=<ANTI>;
       chomp($antiLine);
         if ($antiLine=~/^\sExternal\sloop\s*(.\d*\D\d*)\s/)
         {$value=$value+$1;}
         else {$flag=0;}

         $antiLine=<ANTI>;
         if ($antiLine=~/^\sStack\s*(-\d*\D\d*)\s/)
         {$value=$value+$1;}
         else {$flag=0;};

         $antiLine=<ANTI>;
         if ($antiLine=~/^\sStack\s*(-\d*\D\d*)\s/)
         {$value=$value+$1;}
         else {$flag=0;};

         $antiLine=<ANTI>;
         if ($antiLine=~/^\sStack\s*(-\d*\D\d*)\s/)
         {$value=$value+$1;}
         else {$flag=0;};

         #$antiLine=<ANTI>;
         #if ($antiLine=~/^Stack\s(-\d*\D\d*)\s/)
         #{$value=$value+$1;}
         #else {$flag=0;};

       if ($flag) {print OUT $value," ";} else {print OUT "err ";}


       while(not (($senLine=~/^Dimer.*/) or (eof(SEN)))){$senLine=<SEN>;}

       my $flagsen=1;
       my $valuesen=0;
       $senLine=<SEN>;$senLine=<SEN>;
       chomp($senLine);
         if ($senLine=~/^\sExternal\sloop\s*(.\d*\D\d*)\s/)
         {$valuesen=$valuesen+$1;}
         else {$flagsen=0;}

         $senLine=<SEN>;
         if ($senLine=~/^\sStack\s*(-\d*\D\d*)\s/)
         {$valuesen=$valuesen+$1;}
         else {$flagsen=0;};

         $senLine=<SEN>;
         if ($senLine=~/^\sStack\s*(-\d*\D\d*)\s/)
         {$valuesen=$valuesen+$1;}
         else {$flagsen=0;};

         $senLine=<SEN>;
         if ($senLine=~/^\sStack\s*(-\d*\D\d*)\s/)
         {$valuesen=$valuesen+$1;}
         else {$flagsen=0;};

         #$senLine=<SEN>;
         #if ($senLine=~/^Stack\s(-\d*\D\d*)\s/)
         #{$valuesen=$valuesen+$1;}
         #else {$flagsen=0;};

       if ($flagsen) {print OUT $valuesen," ";} else {print OUT "err ";}

       if ($flagsen and $flag) {print OUT $value-$valuesen, "\n"} else {print OUT "err\n";}

}


close(SEN);
close(ANTI);
close(OUT);